home *** CD-ROM | disk | FTP | other *** search
/ Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit) / Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit).bin / Ubi_soft.exe / Intro2.dxr / Internal_32_Loop for X Seconds.ls < prev    next >
Encoding:
Text File  |  1999-08-18  |  6.0 KB  |  136 lines
  1. property myTimeOut, myTimeUnit, myTimeOutFrame, myImmediateJump, myStartFrame, myStartTicks, myEndFrame
  2.  
  3. on getBehaviorDescription me
  4.   return "LOOP FOR X SECONDS: FRAME BEHAVIOR" & RETURN & RETURN & "This behavior will make the playback head loop for a fixed length of time over a certain number of frames, then jump to a chosen marker.  You can choose whether the playback head jumps immediately at the end of the period, or whether it should run right through to the last frame of the span." & RETURN & RETURN & "Drag this behavior to the frame channel of the Score Window, then stretch it out over the frames you wish to loop over.  If you wish to remain on the same frame, then simply do not stretch out the sprite." & RETURN & RETURN & "PERMITTED MEMBER TYPES:" & RETURN & "Frame behavior" & RETURN & RETURN & "PARAMETERS:" & RETURN & "* Duration of loop (1 tick - 120 hours)" & RETURN & "* Marker to jump to at the end of the period" & RETURN & "* Playback head jumps immediately | at the end of the cycle"
  5. end
  6.  
  7. on getBehaviorTooltip me
  8.   return "Frame behavior." & RETURN & "Stretch this behavior over a sequence" & RETURN & "of frames to make the playback head" & RETURN & "loop for a fixed length of time then" & RETURN & "jump to a chosen marker." & RETURN & RETURN & "Option: ensure that the cycle is fully" & RETURN & "completed before the playback head jumps."
  9. end
  10.  
  11. on beginSprite me
  12.   Initialize(me)
  13. end
  14.  
  15. on exitFrame me
  16.   CheckTimeOut(me)
  17. end
  18.  
  19. on Initialize me
  20.   thisSprite = sprite(the currentSpriteNum)
  21.   myStartFrame = thisSprite.startFrame
  22.   myEndFrame = thisSprite.endFrame
  23.   if symbolp(myTimeOutFrame) then
  24.     case myTimeOutFrame of
  25.       #previous:
  26.         jumpToFrame = marker(-1)
  27.       #loop:
  28.         jumpToFrame = marker(0)
  29.       #next:
  30.         jumpToFrame = marker(1)
  31.     end case
  32.   else
  33.     jumpToFrame = marker(myTimeOutFrame)
  34.   end if
  35.   if the currentSpriteNum then
  36.     ErrorAlert(me, #invalidChannel, the currentSpriteNum)
  37.   end if
  38.   if not jumpToFrame then
  39.     jumpToFrame = myEndFrame + 1
  40.     ErrorAlert(me, #missingMarker, jumpToFrame)
  41.   else
  42.     if (jumpToFrame >= myStartFrame) and (jumpToFrame <= myEndFrame) then
  43.       jumpToFrame = myEndFrame + 1
  44.       ErrorAlert(me, #endlessLoop, jumpToFrame)
  45.     end if
  46.   end if
  47.   myStartTicks = the ticks
  48.   case myTimeUnit of
  49.     #seconds:
  50.       myTimeOut = myTimeOut * 60
  51.     #minutes:
  52.       myTimeOut = myTimeOut * 60 * 60
  53.     #hours:
  54.       myTimeOut = myTimeOut * 60 * 60 * 60
  55.   end case
  56.   myTimeOut = myTimeOut + myStartTicks
  57.   myTimeOutFrame = jumpToFrame
  58.   myImmediateJump = myImmediateJump = "jump immediately"
  59. end
  60.  
  61. on CheckTimeOut me
  62.   if the ticks > myTimeOut then
  63.     if myImmediateJump or (the frame = myEndFrame) then
  64.       go(myTimeOutFrame)
  65.     end if
  66.   else
  67.     if the frame = myEndFrame then
  68.       go(myStartFrame)
  69.     end if
  70.   end if
  71. end
  72.  
  73. on ErrorAlert me, theError, data
  74.   case theError of
  75.     #getPDLError:
  76.       alert("Error: This behavior should dropped on the Stage or into the Behavior Channel of the Score." & RETURN & RETURN & "Hit OK and then delete this behavior from the sprite." & RETURN & RETURN & "For more information on deleting Behaviors, see the Help system.")
  77.       if the optionDown then
  78.         return [#getPDLError: [#comment: "ERROR:   Frame Behavior.   Click 'Cancel'.", #format: #string, #range: [EMPTY], #default: EMPTY]]
  79.       end if
  80.     otherwise:
  81.       behaviorName = string(me)
  82.       delete word 1 of behaviorName
  83.       delete char -30001 of behaviorName
  84.       delete char -30001 of behaviorName
  85.       case theError of
  86.         #invalidChannel:
  87.           if the runMode = "Author" then
  88.             alert("BEHAVIOR ERROR: Frame " & the frame & ", Sprite " & me.spriteNum & RETURN & RETURN & "Behavior " & behaviorName & "should be attached to the frame script channel." & RETURN & RETURN & "Current channel = " & data)
  89.             abort()
  90.           end if
  91.         #missingMarker:
  92.           if the runMode = "Author" then
  93.             alert("BEHAVIOR ERROR: Frame " & the frame & ", Sprite " & me.spriteNum & RETURN & RETURN & "Frame behavior " & behaviorName & "is set to jump to marker '" & myTimeOutFrame & "'.  This marker cannot be found.  Choose a valid marker in the Behavior Parameters dialog." & RETURN & RETURN & "In the meantime, frame " & data & " will be used instead.")
  94.           end if
  95.         #endlessLoop:
  96.           if the runMode = "Author" then
  97.             if symbolp(myTimeOutFrame) then
  98.               case myTimeOutFrame of
  99.                 #previous:
  100.                   jumpToFrame = marker(-1)
  101.                 #loop:
  102.                   jumpToFrame = marker(0)
  103.                 #next:
  104.                   jumpToFrame = marker(1)
  105.               end case
  106.             else
  107.               jumpToFrame = marker(myTimeOutFrame)
  108.             end if
  109.             alert("BEHAVIOR ERROR: Frame " & the frame & ", Sprite " & me.spriteNum & RETURN & RETURN & "Frame behavior " & behaviorName & "is set to jump to marker '" & myTimeOutFrame & "' (frame " & jumpToFrame & ").   This is within the span of the behavior and will cause an endless loop." & RETURN & RETURN & "Frame " & data & " will be used instead.")
  110.           end if
  111.       end case
  112.   end case
  113. end
  114.  
  115. on getPropertyDescriptionList me
  116.   if the currentSpriteNum then
  117.     return ErrorAlert(me, #getPDLError)
  118.   end if
  119.   nextMarker = nextMarker(me)
  120.   return [#myTimeOut: [#comment: "Loop over selected frames for...", #format: #integer, #range: [#min: 1, #max: 120], #default: 30], #myTimeUnit: [#comment: EMPTY, #format: #symbol, #range: [#ticks, #seconds, #minutes, #hours], #default: #seconds], #myTimeOutFrame: [#comment: "... then jump to marker:", #format: #marker, #default: nextMarker], #myImmediateJump: [#comment: "When the time is up:", #format: #string, #range: ["complete the loop", "jump immediately"], #default: "jump immediately"]]
  121. end
  122.  
  123. on nextMarker me
  124.   labelString = the labelList
  125.   delete char -30000 of labelString
  126.   markerCount = the number of lines in labelString
  127.   theFrame = the frame
  128.   repeat with i = 1 to markerCount
  129.     theMarker = line i of labelString
  130.     markerFrame = marker(theMarker)
  131.     if theFrame < markerFrame then
  132.       return theMarker
  133.     end if
  134.   end repeat
  135. end
  136.